﻿<!-- #Include File="../Include/Admin_Onlogin.asp" -->
<%
strFileName = "Admin_Jqqonline.asp"
Dim sqlAuth, rsAuth, PurviewID
sqlAuth = "Select AuthID From Admin_Auth Where href='Admin/" & strFileName & "' Order By sort Asc,AuthID Asc"
Call Exec(rsAuth,sqlAuth,2)
If rsAuth.BOF And rsAuth.EOF Then
	PurviewID = 0
Else
	PurviewID = rsAuth(0)
	CheckPurview PurviewID,0
End If
rsAuth.Close
Set rsAuth = Nothing
Response.Write "<!DOCTYPE html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<title>JQQonline插件信息管理界面</title>" & vbCrlf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=utf-8'>" & vbCrLf
Response.Write "<meta name='viewport' content='width=device-width, initial-scale=1, maximum-scale=1'>" & vbCrLf
Response.Write "<meta name='apple-mobile-web-app-status-bar-style' content='black'>" & vbCrLf
Response.Write "<meta name='apple-mobile-web-app-capable' content='yes'>" & vbCrLf
Response.Write "<meta name='format-detection' content='telephone=no'>" & vbCrLf
Response.Write "<link rel=""stylesheet"" type=""text/css"" href=""../fonts/font-awesome/css/font-awesome.min.css"" />" & vbCrLf
Response.Write "<link href='../Plugins/layui/css/layui.css' rel='stylesheet' type='text/css' />" & vbCrLf
Response.Write "<link rel=""stylesheet"" href=""../Style/global.css"" media=""all"">" & vbCrLf
Response.Write "<link rel=""stylesheet"" href=""../Style/font.css"" media=""all"">" & vbCrLf
Response.Write "<script type='text/javascript'>" & vbCrLf
Response.Write "var pc_file = '" & InstallDir & "';" & vbCrLf
Response.Write "var admin_file = '" & AdminFolder & "/';" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<script type='text/javascript' src='../Js/Admin.js'></script>" & vbCrLf
Response.Write "<script type='text/javascript' src='../../Dialog/main.js'></script>" & vbCrLf
Response.Write "<script type='text/javascript' src='../../Dialog/lhgcore.min.js'></script>" & vbCrLf
Response.Write "<script type='text/javascript' src='../../Dialog/lhgcalendar.min.js'></script>" & vbCrLf
Response.Write "</head>" & vbCrlf
Response.Write "<body>" & vbCrlf

Select Case Action
Case "EditSiteInfo"
	sqlAuth = "Select AuthID From Admin_Auth Where pid="&PurviewID&" And href='Jqqonline/Config' Order By sort Asc,AuthID Asc"
	Call Exec(rsAuth,sqlAuth,2)
	If rsAuth.BOF And rsAuth.EOF Then
		CheckPurview 0,0
	Else
		CheckPurview rsAuth(0),0
	End If
	rsAuth.Close
	Set rsAuth = Nothing
    Call EditSiteInfo
Case "Add"
	sqlAuth = "Select AuthID From Admin_Auth Where pid="&PurviewID&" And href='Jqqonline/Insert' Order By sort Asc,AuthID Asc"
	Call Exec(rsAuth,sqlAuth,2)
	If rsAuth.BOF And rsAuth.EOF Then
		CheckPurview 0,0
	Else
		CheckPurview rsAuth(0),0
	End If
	rsAuth.Close
	Set rsAuth = Nothing
    Call AddInfo
Case "Edit"
	sqlAuth = "Select AuthID From Admin_Auth Where pid="&PurviewID&" And href='Jqqonline/Edit' Order By sort Asc,AuthID Asc"
	Call Exec(rsAuth,sqlAuth,2)
	If rsAuth.BOF And rsAuth.EOF Then
		CheckPurview 0,0
	Else
		CheckPurview rsAuth(0),0
	End If
	rsAuth.Close
	Set rsAuth = Nothing
    Call EditInfo
Case "SaveEdit"
	sqlAuth = "Select AuthID From Admin_Auth Where pid="&PurviewID&" And href='Jqqonline/Update' Order By sort Asc,AuthID Asc"
	Call Exec(rsAuth,sqlAuth,2)
	If rsAuth.BOF And rsAuth.EOF Then
		CheckPurview 0,0
	Else
		CheckPurview rsAuth(0),0
	End If
	rsAuth.Close
	Set rsAuth = Nothing
    Call SaveEdit
Case "Del"
	sqlAuth = "Select AuthID From Admin_Auth Where pid="&PurviewID&" And href='Jqqonline/Del' Order By sort Asc,AuthID Asc"
	Call Exec(rsAuth,sqlAuth,2)
	If rsAuth.BOF And rsAuth.EOF Then
		CheckPurview 0,0
	Else
		CheckPurview rsAuth(0),0
	End If
	rsAuth.Close
	Set rsAuth = Nothing
    Call DelInfo
Case Else
    Call main
End Select
If FoundErr = True Then
	Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body>" & vbCrLf & "</html>"
Call CloseConn()

Sub Main()
	Response.Write "<div class=""admin-main layui-anim layui-anim-upbit"">" & vbCrLf
	Response.Write "<div class=""table-responsive"">" & vbCrLf
	Response.Write "<table class=""layui-table table-hover"">" & vbCrlf
	Response.Write "<tr class=""title"">" & vbCrlf
	Response.Write "<td align=""center""><strong>通用网站在线咨询JQQonline插件</strong></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td>"
	Dim infostrSourceFile,infoobjXML
	infostrSourceFile=Server.MapPath("../../Jqqonline/xml/info.xml")
	Set infoobjXML=Server.CreateObject("Microsoft.XMLDOM")
	infoobjXML.load(infostrSourceFile)
	Dim infoobjNodes
	Set infoobjNodes=infoobjXML.selectSingleNode("xml/qqinfo/qqset[siteid ='1']")
	If Not IsNull(infoobjNodes) Then
		Response.Write "<form method=""post"" action=""" & strFileName & """>" & vbCrlf
		Response.Write "<table class=""layui-table table-hover"">" & vbCrlf
		Response.Write "<tr class=""title"">" & vbCrlf
		Response.Write "<td><strong>参数设置</strong></td>" & vbCrlf
		Response.Write "</tr>" & vbCrlf
		Response.Write "<tr>" & vbCrlf
		Response.Write "<td>&nbsp;左右位置：<input type=""radio"" name=""sitearea"" value=""0"""
		if infoobjNodes.childNodes(4).text="0" Then response.write " checked"
		Response.Write ">&nbsp;居左&nbsp;<input type=""radio"" name=""sitearea"" value=""1"""
		if infoobjNodes.childNodes(4).text="1" Then response.write " checked"
		Response.Write ">&nbsp;居右</td>" & vbCrlf
		Response.Write "</tr>" & vbCrlf
		Response.Write "<tr>" & vbCrlf
		Response.Write "<td>&nbsp;上下位置：<input type=""radio"" name=""verticalpos"" value=""0"""
		if infoobjNodes.childNodes(5).text="0" Then response.write " checked"
		Response.Write ">&nbsp;居顶&nbsp;<input type=""radio"" name=""verticalpos"" value=""1"""
		if infoobjNodes.childNodes(5).text="1" Then response.write " checked"
		Response.Write ">&nbsp;居底</td>" & vbCrlf
		Response.Write "</tr>" & vbCrlf
		Response.Write "<tr>" & vbCrlf
		Response.Write "<td>&nbsp;网站名：<input type=""text"" name=""sitename"" size=""15"" value=""" & infoobjNodes.childNodes(0).text & """>&nbsp;使用皮肤：<select name=""siteskin"" onchange=""document.images['showimagestop'].src='../../Jqqonline/images/qq/skin/'+options[selectedIndex].value+'/top.gif';document.images['showimagesmid'].src='../../Jqqonline/images/qq/skin/'+options[selectedIndex].value+'/middle.gif';document.images['showimagesbot'].src='../../Jqqonline/images/qq/skin/'+options[selectedIndex].value+'/bottom.gif';"">" & vbCrlf
		for i=1 to 17
		Response.Write "<option value='" & i &"'" & Check_Object2(i,infoobjNodes.childNodes(1).text," selected") & ">皮肤" & i & "</option>"
		next
		Response.Write "</select>&nbsp;<img id=""showimagestop"" src=""../../Jqqonline/images/qq/skin/" & infoobjNodes.childNodes(1).text & "/top.gif"" border=""0"" align=""absmiddle"" onload=""Img(this).Resize(110,25);"" />&nbsp;<img id=""showimagesmid"" height=""2"" src=""../../Jqqonline/images/qq/skin/" & infoobjNodes.childNodes(1).text & "/middle.gif"" border=""0"" align=""absmiddle"" onload=""Img(this).Resize(110,25);"" />&nbsp;<img id=""showimagesbot"" height=""10"" src=""../../Jqqonline/images/qq/skin/" & infoobjNodes.childNodes(1).text & "/bottom.gif"" border=""0"" align=""absmiddle"" onload=""Img(this).Resize(110,25);"" /></td>" & vbCrlf
		Response.Write "</tr>" & vbCrlf
		Response.Write "<tr>" & vbCrlf
		Response.Write "<td>&nbsp;显示界面X坐标：<input type=""text"" name=""siteshowx"" size=""10"" value=""" & infoobjNodes.childNodes(2).text & """>&nbsp;Y坐标：<input type=""text"" name=""siteshowy"" size=""10"" value=""" & infoobjNodes.childNodes(3).text & """>&nbsp;<input name='Action' type='hidden' id='Action' value='EditSiteInfo'><button type=""submit"" class=""layui-btn"" hidefocus=""true"">修改</button></td>" & vbCrlf
		Response.Write "</tr>" & vbCrlf
		Response.Write "</table>" & vbCrlf
		Response.Write "</form>" & vbCrlf
	Else
		Response.Write IsSuccess("Xml 未成功打开！",AdminFolder & "/Admin/"&strFileName)
		Exit Sub
	End If
	Set infoobjNodes=nothing
	Set infoobjXML=nothing
	Response.Write "<table class=""layui-table table-hover"">" & vbCrlf
	Response.Write "<tr class=""title"">" & vbCrlf
	Response.Write "<td width=""180""><strong>QQ号</strong></td>" & vbCrlf
	Response.Write "<td width=""180""><strong>描述</strong></td>" & vbCrlf
	Response.Write "<td width=""80""><strong>头像</strong></td>" & vbCrlf
	Response.Write "<td width=""30"" align=""center""><strong>编辑</strong></td>" & vbCrlf
	Response.Write "<td width=""30"" align=""center""><strong>删除</strong></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Dim strSourceFile,objXML,objRootsite,AllNodesNum
	strSourceFile=Server.MapPath("../../Jqqonline/xml/qq.xml")
	Set objXML=Server.CreateObject("Microsoft.XMLDOM")
	objXML.load(strSourceFile)
	Set objRootsite=objXML.documentElement.selectSingleNode("qqlist")
	AllNodesNum=objRootsite.childNodes.length-1
	Dim iCount
	For iCount=0 to AllNodesNum
		Response.Write "<tr>" & vbCrlf
		Response.Write "<td width=""180"">&nbsp;" & objRootsite.childNodes.item(iCount).childNodes.item(0).text & "</td>" & vbCrlf
		Response.Write "<td width=""180"">&nbsp;<font style=font-size:12px;color:" & objRootsite.childNodes.item(iCount).childNodes.item(3).text & ";>" & objRootsite.childNodes.item(iCount).childNodes.item(1).text & "</font></td>" & vbCrlf
		Response.Write "<td width=""80"">&nbsp;<img src=""../../Jqqonline/images/qqface/" & objRootsite.childNodes.item(iCount).childNodes.item(2).text & "_m.gif"" border=""0""></td>" & vbCrlf
		Response.Write "<td width=""30"" align=""center""><a href=""?Action=Edit&id=" & objRootsite.childNodes.item(iCount).childNodes.item(4).text & """>编辑</a></td>" & vbCrlf
		Response.Write "<td width=""30"" align=""center""><a href=""?Action=Del&id=" & objRootsite.childNodes.item(iCount).childNodes.item(4).text & """>删除</a></td>" & vbCrlf
		Response.Write "</tr>" & vbCrlf
	Next
	Set objRootsite=nothing
	Set objXML=nothing
	Response.Write "</table>" & vbCrlf
	Response.Write "<form method=""post"" action=""" & strFileName & """>" & vbCrlf
	Response.Write "<table class=""layui-table table-hover"">" & vbCrlf
	Response.Write "<tr class=""title"">" & vbCrlf
	Response.Write "<td><strong>添加新的QQ号</strong></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td>&nbsp;QQ号：<input type=""text"" name=""qq"" size=""20""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td>&nbsp;描述：<input type=""text"" name=""dis"" size=""25""></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td>&nbsp;颜色：<input type=""text"" name=""color"" size=""25""> 输入颜色代码例如：#000000</td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td>&nbsp;头像：<br>" & vbCrlf
	dim fcount:for fcount=1 to 101
		Response.Write "<input type=""radio"" name=""face"" value=""" & fcount & """><img src=""../../Jqqonline/images/qqface/" & fcount & "_m.gif"" border=""0"">" & vbCrlf
	next
	Response.Write "</td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td height=""30"">&nbsp;" & Submit_Init("确定添加","重新填写","确认要清空对话框内容？","window.location.href='" & strFileName & "';"," 取 消 ") & "<input name='Action' type='hidden' id='Action' value='Add'></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "</table>" & vbCrlf
	Response.Write "</form>" & vbCrlf
	Response.Write "</td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "</table>" & vbCrlf
	Response.Write "</div>" & vbCrLf
	Response.Write "</div>" & vbCrLf
End Sub

Sub EditInfo()
	Response.Write "<div class=""admin-main layui-anim layui-anim-upbit"">" & vbCrLf
	Response.Write "<div class=""table-responsive"">" & vbCrLf
	dim neditid:neditid=request.querystring("id")
	if not IsNumeric(neditid) or neditid="" Then
		Response.Write IsSuccess("非法操作！",AdminFolder & "/Admin/"&strFileName)
		Exit Sub
	else
		neditid=clng(neditid)
	end if
	Dim strSourceFile,objXML
	strSourceFile=Server.MapPath("../../Jqqonline/xml/qq.xml")
	Set objXML=Server.CreateObject("Microsoft.XMLDOM")
	objXML.load(strSourceFile)
	Dim objNodes
	Set objNodes=objXML.selectSingleNode("xml/qqlist/qq[id ='"&neditid&"']")
	If Not IsNull(objNodes) Then
	Response.Write "<form method=""post"" action=""" & strFileName & """>" & vbCrlf
	Response.Write "<table class=""layui-table table-hover"">" & vbCrlf
	Response.Write "<tr class=""title"">" & vbCrlf
	Response.Write "<td>编辑QQ信息</td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td>&nbsp;QQ号：<input type=""text"" name=""qq"" size=""20"" value=""" & objNodes.childNodes(0).text & """></td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td>&nbsp;描述：<input type=""text"" name=""dis"" size=""25"" value=""" & objNodes.childNodes(1).text & """> </td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td>&nbsp;颜色：<input type=""text"" name=""color"" size=""25"" value=""" & objNodes.childNodes(3).text & """> 输入颜色代码例如：#000000</td>" & vbCrlf
	Response.Write "</tr>" & vbCrlf
	Response.Write "<tr>" & vbCrlf
	Response.Write "<td>&nbsp;头像：<br>" & vbCrlf
		dim fcount:for fcount=1 to 101
			Response.Write "<input type=""radio"" name=""face"" value=""" & fcount & """"
			if objNodes.childNodes(2).text=cstr(fcount) Then Response.Write " checked"
			Response.Write "><img src=""../../Jqqonline/images/qqface/" & fcount & "_m.gif"" border=""0"">" & vbCrlf
		next
		Response.Write "</td>" & vbCrlf
		Response.Write "</tr>" & vbCrlf
		Response.Write "<tr>" & vbCrlf
		Response.Write "<td height=""30"">&nbsp;" & Submit_Init("确定修改","重新填写","确认要清空对话框内容？","window.location.href='" & strFileName & "';"," 取 消 ") & "<input name='Action' type='hidden' id='Action' value='SaveEdit'><input name='id' type='hidden' value='" & neditid & "'></td>" & vbCrlf
		Response.Write "</tr>" & vbCrlf
		Response.Write "</table>" & vbCrlf
		Response.Write "</form>" & vbCrlf
		Response.Write "</div>" & vbCrLf
		Response.Write "</div>" & vbCrLf
	else
		Response.Write IsSuccess("发生错误！",AdminFolder & "/Admin/"&strFileName)
	end if
	Set objNodes=nothing
	Set objXML=nothing
End Sub

function leftshow(str,leftc)
	if len(str)>=leftc Then
		leftshow=left(str,leftc)&".."
	else
		leftshow=str
	end if
end function

function htmlencode(reString)
	dim Str
	str=reString
	str=replace(str, "&", "&amp;")
	str=replace(str, ">", "&gt;")
	str=replace(str, "<", "&lt;")
	htmlencode=Str
end function

Sub EditSiteInfo()
	Dim infostrSourceFile,infoobjXML
	infostrSourceFile=Server.MapPath("../../Jqqonline/xml/info.xml")
	Set infoobjXML=Server.CreateObject("Microsoft.XMLDOM")
	infoobjXML.load(infostrSourceFile)
	Dim infoobjNodes
	Set infoobjNodes=infoobjXML.selectSingleNode("xml/qqinfo/qqset[siteid ='1']")
	If Not IsNull(infoobjNodes) Then
		infoobjNodes.childNodes(0).text=htmlencode(request.form("sitename"))
		infoobjNodes.childNodes(1).text=htmlencode(request.form("siteskin"))
		infoobjNodes.childNodes(2).text=htmlencode(request.form("siteshowx"))
		infoobjNodes.childNodes(3).text=htmlencode(request.form("siteshowy"))
		infoobjNodes.childNodes(4).Text = htmlencode(request.Form("sitearea"))
		infoobjNodes.childNodes(5).Text = htmlencode(request.Form("verticalpos"))
		infoobjXML.save(infostrSourceFile)
		Response.Write IsSuccess("参数修改成功！",AdminFolder & "/Admin/"&strFileName)
	Else
		Response.Write IsSuccess("Xml 未成功打开！",AdminFolder & "/Admin/"&strFileName)
	End If
	Set infoobjNodes=nothing
	Set infoobjXML=nothing
End Sub
	
Sub AddInfo()
	if trim(request.form("qq"))="" or trim(request.form("dis"))="" or trim(request.form("face"))="" Then
		Response.Write IsSuccess("没有填入必要的数据！",AdminFolder & "/Admin/"&strFileName)
		Exit Sub
	end if
	
	dim jtb_color
	if trim(request.form("color"))="" Then
		jtb_color="#000000"
	else
		jtb_color=htmlencode(request.form("color"))
	end if
	
	Dim strSourceFile,objXML,oListNode,oDetailsNode,AllNodesNum
	strSourceFile=Server.MapPath("../../Jqqonline/xml/qq.xml")
	Set objXML=Server.CreateObject("Microsoft.XMLDOM")
	objXML.load(strSourceFile)
	Dim objRootlist
	Set objRootlist=objXML.documentElement.selectSingleNode("qqlist")
	dim id
	If objRootlist.hasChildNodes Then
		id=objRootlist.lastChild.lastChild.text+1
	Else
		id=1
	End If
	Set objRootlist=nothing
	Set oListNode=objXML.documentElement.selectSingleNode("qqlist").AppendChild(objXML.createElement("qq"))
	Set oDetailsNode=oListNode.appendChild(objXML.createElement("qid"))
	oDetailsNode.Text=htmlencode(request.form("qq"))
	Set oDetailsNode=oListNode.appendChild(objXML.createElement("dis"))
	oDetailsNode.Text=htmlencode(request.form("dis"))
	Set oDetailsNode=oListNode.appendChild(objXML.createElement("face"))
	oDetailsNode.Text=htmlencode(request.form("face"))
	Set oDetailsNode=oListNode.appendChild(objXML.createElement("color"))
	oDetailsNode.Text=jtb_color
	Set oDetailsNode=oListNode.appendChild(objXML.createElement("id"))
	oDetailsNode.Text=id
	objXML.save(strSourceFile)
	Set objRootlist=nothing
	Set oListNode=nothing
	Set oDetailsNode=nothing
	Set objXML=nothing
	Response.Write IsSuccess("添加新的QQ号成功！",AdminFolder & "/Admin/"&strFileName)
End Sub

Sub SaveEdit()
	dim editid:editid=request.form("id")
	if not IsNumeric(editid) or editid="" Then
		Response.Write IsSuccess("非法操作！",AdminFolder & "/Admin/"&strFileName)
		Exit Sub
	else
		editid=clng(editid)
	end if
	if trim(request.form("qq"))="" or trim(request.form("dis"))="" or trim(request.form("face"))="" Then
		Response.Write IsSuccess("没有添入必要的数据！",AdminFolder & "/Admin/"&strFileName)
		Exit Sub
	end if
	Dim strSourceFile,objXML
	strSourceFile=Server.MapPath("../../Jqqonline/xml/qq.xml")
	Set objXML=Server.CreateObject("Microsoft.XMLDOM")
	objXML.load(strSourceFile) 
	Dim objNodes
	Set objNodes=objXML.selectSingleNode("xml/qqlist/qq[id ='"&editid&"']")
	If Not IsNull(objNodes) Then
		objNodes.childNodes(0).text=htmlencode(request.form("qq"))
		objNodes.childNodes(1).text=htmlencode(request.form("dis"))
		objNodes.childNodes(2).text=htmlencode(request.form("face"))
		objNodes.childNodes(3).text=htmlencode(request.form("color"))
		objXML.save(strSourceFile)
		Set objNodes=nothing
		Set objXML=nothing
		Response.Write IsSuccess("修改成功！",AdminFolder & "/Admin/"&strFileName)
	else
		Response.Write IsSuccess("修改失败！",AdminFolder & "/Admin/"&strFileName)
	end if
End Sub

Sub DelInfo()
	dim delid
	delid=request.querystring("id")
	if not IsNumeric(delid) or delid="" Then
		Response.Write IsSuccess("非法操作！",AdminFolder & "/Admin/"&strFileName)
		Exit Sub
	else
		delid=clng(delid)
	end if
	Dim strSourceFile,objXML
	strSourceFile=Server.MapPath("../../Jqqonline/xml/qq.xml")
	Set objXML=Server.CreateObject("Microsoft.XMLDOM")
	objXML.load(strSourceFile)
	Dim objNodes
	Set objNodes=objXML.selectSingleNode("xml/qqlist/qq[id ='"&delid&"']")
	if Not IsNull(objNodes) Then
		if request.querystring("yn")="" Then
			Response.Write IsConfirm("确认要删除[" & objNodes.childNodes(0).text & "]的信息吗？",AdminFolder & "/Admin/" & strFileName & "?Action=Del&id=" & delid & "&yn=1",AdminFolder & "/Admin/"&strFileName)
		else
			objNodes.parentNode.removeChild(objNodes)
			objXML.save(strSourceFile)
			Response.Write IsSuccess("删除成功！",AdminFolder & "/Admin/"&strFileName)
		end if
	else
		Response.Write IsSuccess("没有找到指定的条目！",AdminFolder & "/Admin/"&strFileName)
	End If
	Set objNodes=nothing
	Set objXML=nothing
End Sub
%>